home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / Time Clock 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  328 b   |  10 lines
  1. 0 print"[147]":poke53280,6:poke53281,0
  2. 1 rem ==================================
  3. 2 rem    commodares problem #52-2 :
  4. 3 rem       time clock
  5. 4 rem    solution by
  6. 5 rem       jim borden
  7. 6 rem ==================================
  8. 10 input "minutes pay";mn: hr=int(mn/15+.5)/4: m=(hr-int(hr))*4
  9. 20 print"payroll time = "int(hr);m"[157]/4 hours.": if mn>0 goto 10
  10.